home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 July / 1988-07.d64 / fade in_out (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  458 b   |  15 lines
  1. 10 rem fade in/out - copyright 1988 compute! publications, inc.
  2. 20 rem registers: 32,33
  3. 30 v=49152:s=49664:i=s+161:o=s+82:df=s+209
  4. 40 pokes+1,3:sysi
  5. 50 pokev+32*8+0,0:pokev+33*8+0,0
  6. 60 pokev+32*8+1,7:pokev+33*8+1,7
  7. 70 pokev+32*8+2,0:pokev+33*8+2,0
  8. 80 pokev+18*8,149:pokev+18*8+1,150:pokev+18*8+2,1
  9. 90 syss
  10. 100 print"[147][144]";:forx=1to12:printspc(15)"fading in":next
  11. 110 forx=0to105:pokev+18*8,149-x:pokev+18*8+1,150+x:next
  12. 120 print"[147][158]";:forx=1to12:printspc(15)"fading out":next
  13. 130 forx=0to105:pokev+18*8,44+x:pokev+18*8+1,255-x:next
  14. 140 goto100
  15.